10 CLEAR,40191:B=127:FORI=66470TO65436STEP8:J=I-24478:POKEJ,(PEEK(I)ANDB)*2:POKEJ+1,(PEEK(I+1)ANDB)*2:POKEJ+2,(PEEK(I+2)ANDB)*2:POKEJ+3,PEEK(I+3):POKEJ+4,PEEK(I+4):POKEJ+5,PEEK(I+5)@2:POKEJ+6,PEEK(I+6)@2:POKEJ+7,PEEK(I+7)@2:NEXTI
20 SCREEN1,7,7:CLS:PRINT"Nouvelle ecriture : en italique":PRINTSPC(40);"LIST:":POKE8307,157:POKE8308,0:COLOR4:LIST